home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / Programmer's Utilities / GroundControl / Samples / Sample8.gc < prev   
Encoding:
Text File  |  1997-03-26  |  530 b   |  23 lines
  1. If(FileExist("SysLog.txt"),GoTo(":DoTest"),GoTo(":Cont"))
  2.  
  3. :DoTest
  4. MessageBoxOkCancel("File 'SysLog.txt' exists.. Do you want to erase this file and continue?")
  5. If(ResponseOk(),GoTo("EraseFile"),MessageBox("Process Canceled"))
  6. GoTo(":TheExit")
  7.  
  8. :EraseFile
  9. RunDOSCommand("erase SysLog.txt")
  10. Delay(2000)
  11. GoTo("Cont")
  12.  
  13. :Cont
  14. LogSystem("SysLog.txt",DISK_C_SIZE)
  15. LogSystem("SysLog.txt",DISK_C_FREE)
  16. LogSystem("SysLog.txt",USER_NAME)
  17. LogSystem("SysLog.txt",SYSTEM_DIR)
  18. RunProgram("NotePad SysLog.txt")
  19.  
  20. :TheExit
  21.  
  22.  
  23.